方程x+e^x=2在（0，1）有一个实数根，试求出此根的近似值。要求精确到小数点后6位。

'牛顿法?
'解非线性方程?f(x)=0?的牛顿(Newton) 法，
'就是将非线性方程线性化的一种方法。
'它是解代数方程和超越方程的有效方法之 一。
'牛顿法的迭代公式：x2 =x1-f(x1)/f'(x1)
'牛顿法收敛很快，而且可求复根，缺点是对重根收敛较慢，要求函数的一阶导数存在。

Dim x1!, x2!, y!
x2 = 0.5
Do
x1 = x2
y = (x1 + Exp(x1) - 2) / (1 + x1 * Exp(x1))
x2 = x1 - y
Loop While Abs(y) > 10 ^ -6
MsgBox x2

Dim i, r, s
For i = 0 To 1 Step 0.000001
r = Log(2 - i)
If Abs(r - i) < 0.000001 Then
Print i
Exit For
End If
Next i